10 REM COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 IFPEEK(65530)=5THEN(null)15
30 POKE56,59:POKE55,0:CLR:CH=15360:DIM B(8,8):OPEN4,4,0:GOSUB740
40 BH=5:BW=3:REM BANNER PIXEL HEIGHT (1-10) AND WIDTH (1-)
50 PW=1:REM SINGLE-PAGE PIXEL WIDTH (1-2)
60 PRINT"[147]   COPYRIGHT 1987 COMPUTE! PUB., INC."
70 PRINTTAB(11)"ALL RIGHTS RESERVED"
80 PRINTTAB(11)"POSTER PRINTER"
90 PRINTTAB(11)"1. BANNER"
100 PRINTTAB(11)"2. SINGLE PAGE"
110 PRINTTAB(11)"3. FORM FEED"
120 PRINTTAB(11)"4. EXIT PROGRAM"
130 GETA$:IFA$<"1"ORA$>"4"THEN130
140 ONASC(A$)-48GOTO170,410,150,160
150 PRINT#4,CHR$(12):GOTO60:REM FORM FEED
160 PRINT#4:CLOSE4:PRINT"[147]":END
170 PRINT"[147]PLEASE ENTER THE MESSAGE TO";
180 A$="":PRINT" BE PRINTED":INPUTA$:IFA$=""THEN60
190 LP=LEN(A$)
200 FORC=1TOLP:GOSUB210:NEXT:GOTO60
210 X$=MID$(A$,C,1):SC=ASC(X$)
220 GOSUB330:CS=CH+SC*8
230 FORI=0TO7:A(I)=PEEK(CS+I):NEXT
240 FORBI=7TO0STEP-1
250 L1$=LEFT$("                                    ",(80-8*BH)/2)
260 FORBY=7TO0STEP-1:IFA(BY)AND2^BITHEN290
270 L1$=L1$+LEFT$("          ",BH)
280 GOTO300
290 L1$=L1$+LEFT$("**********",BH)
300 NEXTBY
310 FORA=1TOBW:PRINT#4,L1$:NEXT
320 NEXTBI:RETURN
330 IFSC<32THENSC=128:RETURN
340 IFSC<64THENRETURN
350 IFSC<96THENSC=SC-64:RETURN
360 IFSC<128THENSC=SC-32:RETURN
370 IFSC<160THENSC=128:RETURN
380 IFSC<192THENSC=SC-64:RETURN
390 IFSC<255THENSC=SC-128:RETURN
400 SC=94:RETURN
410 NC=8:IFPW=2THENNC=4
420 PRINT"[147]ENTER UP TO 5 LINES WITH"NC"LETTERS OR"
430 PRINT"LESS PER LINE (CARRIAGE RETURN TO QUIT)"
440 FORA=1TO5:L1$="":PRINT"ENTER LINE";A:INPUTL1$
450 IFA=1ANDL1$=""THENA=5:NEXT:GOTO60
460 IFL1$=""THENA=5:NEXT:GOTO480
470 L=A:L$(A)=LEFT$(L1$,NC):NEXT
480 W=12*L:W1=INT((60-W)/2)+5
490 FORW=1TOW1:PRINT#4:NEXT
500 FORX=1TOL:GOSUB510:NEXT:GOTO60
510 LL=LEN(L$(X)):FORX1=1TOLL
520 W$=MID$(L$(X),X1,1):SC=ASC(W$)
530 GOSUB330
540 CS=CH+SC*8
550 FORX2=0TO7:B(X1,X2)=PEEK(CS+X2)
560 NEXTX2,X1
570 LC=INT((80-(LL*PW*8+LL*2))/2):REM LL*2 FOR # SPACES BETWEEN ADJOINING CHARS
580 PL$=""
590 IFLC=0THEN610
600 FORX1=1TOLC:PL$=PL$+" ":NEXT
610 SL$=PL$
620 FORX2=0TO7:FORX1=1TOLL
630 FORBI=7TO0STEP-1
640 IFB(X1,X2)AND2^BITHEN660
650 PL$=PL$+LEFT$("  ",PW):GOTO670:REM PIXEL WIDTH IN THIS LINE AND NEXT
660 PL$=PL$+LEFT$("**",PW)
670 NEXTBI
680 PL$=PL$+"  ":REM # SPACES BETWEEN ADJOINING CHARACTERS
690 NEXTX1
700 PRINT#4,PL$
710 PL$=SL$
720 NEXTX2
730 FORA=1TO4:PRINT#4:NEXT:RETURN:REM SPACES BETWEEN TEXT LINES
740 I=15104:REM LOCATE UPPERCASE IN RAM
750 READA:IFA=-1THENSYS15104:RETURN
760 POKEI,A:I=I+1:GOTO750
770 REM 64 CHARACTER MOVE ROUTINE
780 DATA 169,208,133,252,169,60,133,254,169,0
790 DATA 133,251,133,253,120,165,1,41,251,133
800 DATA 1,162,4,160,0,177,251,145,253,200
810 DATA 208,249,230,252,230,254,202,208,242,165
820 DATA 1,9,4,133,1,88,96,-1